COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE SLAP
C00006 ENDMK
C⊗;
	TITLE SLAP
	ENTRY FOLD
FOLD:	0
	HRRZ 1,1(16)
	SOJ 1,
	MOVE 2,1
	ADD 1,@0(16)
	HRRZ 3,3(16)
	SOJ 3,
	MOVEM 3,MOUP#
	ADD 3,@2(16)
	HRRZ 6,5(16)
	SOJ 6,
	MOVE 5,@4(16)
	AOJ 5,
	HRLZM 5,@6(16)
	SOJ 5,
	ADD 5,6
ADIN:	AOJ 2,
	CAMLE 2,1
	JRST RETUR
	MOVE 4,MOUP
	SETZ 10,
	MOVE 11,@2
SEQU:	AOJ 4,
	CAMLE 4,3
	JRST NEWR
	CAME 11,@4
	JRST SEQU
SAAD:	AOJ 10,
	MOVE 7,2
	ADD 7,10
	CAMLE 7,1
	JRST SUBT
	CAMN 11,@7
	JRST SAAD
SUBT:	SOJ 10,
	CAIG 10,0
	JRST TOEQ
	AOJ 5,
	SUB 4,MOUP
	LSH 4,22
	HRR 4,10
	IOR 4,[0,,400000]
	MOVEM 4,@5
	JRST TAKS
TOEQ:	AOJ 10,
	MOVE 11,2
	ADD 11,10
	CAMLE 11,1
	JRST LWRD
	MOVE 12,4
	ADD 12,10
	MOVE 7,@11
	CAMLE 12,3
	JRST LWRD	
	CAMN 7,@12
	JRST TOEQ
LWRD:	SOJ 10,
ICKY:	AOJ 5,
	SUB 4,MOUP
	HRLZM 4,@5
	ADD 4,10
	HRRM 4,@5
TAKS:	ADD 2,10
	JRST ADIN
NEWR:	AOJ 3,
	MOVEM 11,@3
	JRST ICKY
RETUR:	SUB 3,MOUP
	MOVEM 3,@2(16)
BGIN:	HLRZ 7,@6(16)
	ADD 7,6
NRITE:	HRRZ 10,@7
	AOJ 7,
	CAMLE 7,5
	JRST NFIR
	AOJ 10,
	HLRZ 11,@7
	CAME 10,11
	JRST NRITE
	HRL 11,@7
	CAIG 11,0
	JRST NRITE
	HRRZ 11,@7
	SOJ 7,
	HRRM 11,@7
AGIN:	AOJ 7,
	MOVE 10,7
	AOJ 10,
	CAMLE 10,5
	JRST BOP
	MOVE 11,@10
	MOVEM 11,@7
	CAMGE 10,5
	JRST AGIN
BOP:	SOJ 5,
	JRST BGIN
NFIR:	HLRZ 7,@6(16)
	ADD 7,6
	MOVE 11,7
STRT:	MOVE 10,6
IBAD:	AOJ 10,
	CAML 10,7
	JRST NEQU
	MOVE 1,@10
	CAME 1,@11
	JRST IBAD
	SUB 10,6
	HRLZ 1,10
	HRR 1,10
	IOR 1,[400000,,0]
	MOVEM 1,@11
	JRST STRT
NEQU:	AOJ 11,
	CAMG 11,5
	JRST STRT
	JRST SNUB
ITRY:	AOJ 7,
SNUB:	CAML 7,5
	JRST BACK
	MOVE 10,@7
	CAIL 10,0
	JRST ITRY
	HRRZ 10,@7
	AOJ 10,
	AOJ 7,
	MOVE 11,@7
	CAIL 11,0
	JRST SNUB
	LSH 11,1
	LSH 11,-23
	CAME 10,11	
	JRST SNUB
	HRRZ 11,@7
	SOJ 7,
	HRRM 11,@7
	MOVE 11,7
	MOVE 1,11
	AOJ 1,
ONEM:	AOJ 1,
	AOJ 11,
	MOVE 10,@1
	MOVEM 10,@11
	CAMGE 1,5
	JRST ONEM
	SOJ 5,
	JRST NFIR
BACK:	SUB 5,6
	MOVEM 5,@4(16)
	HRRM 5,@6(16)
	JRA 16,7(16)
	END